CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 
ccc DDD ODD UUU UUU 
ccc DDD DOD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD uuu 


DOD D UUU 
C DDDDDDDDDDDD UUUUUUUUUUUUUUU 
C DODDDDDDDDDD UUUUUUUUUUUUUUU 
C ODDDDDDDDDDD UUUUUUUUUUUUUUU 


COO 
OO 
OOo 
COO 
COO 
COO 
OOo 
OOo 
COOan 
Oona 
OOao 


ee ee ee ee ee ee ee eee ee eee ees Se — 


| *#FILE**1D**CDUREO 

CCCCCCCL §=DDDDDDDD UU UU RRRRRRRR EEEEEEEEEE Q00000 
CCCCCCCC § DDDDDDDD UU UU RRRRRRRR EEEEEEEEEE oooooo 

cc DD DD UU UU RR RR EE QQ QQ 

cc DD DD UU UU RR RR EE QQ QQ 

cc DD DD UU UU RR RR EE QQ QQ 

cc DD DD UU UU RR RR EE QQ QQ 

cc DD DD UU UU RRRRRRRR EEEEEEEE QQ QQ 

cc DD DD UU UU RRRRRRRR EEEEEEEE Q QQ 

cc DD DD UU UU RR RR EE QQ QQ QQ 

cc DD DD UU UU RR RR EE QQ QQ QQ 

cc DD DD UU UU RR RR EE QQ QQ . 

cc dD DD UU UU RR RR EE QQ QQ eeee 
CCCCCCCC + DDDDDDDD UUUUUUUUUU RR RR EEEEEEEEEE QQaag aa coe 
CCCCCCCC + DDDDDDDD UUUUUUUUUU RR RR EEEEEEEEEE odooo aa eeee 

RRRRRRRR 33333 222222 

RRRRRRRR 333333 e2e22e 

RR RR 33 33 22 22 

RR RR 33 33 22 22 

RR RR $3 22 

RR RR 3 22 

RRRRRRRR 33 22 

RRRRRRRR 33 22 

RR RR 33 22 

RR RR 33 22 

RR —sRR 33 $3 $$ 

RR RR 33 3 2 

RR RR 333333 2222222222 

RR RR 333333 2222222222 


r 
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: IDENT="Vv04-000" 


| aati iain aaa ARARAAAALAAAASALALALL AAAS ALLA SS 


' * 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT _GORPORATION, ° MAYNARD. MASSACHUSETTS. : 
ie ALL RIGHTS RESERV * 
* 

WIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 

is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO. ANY © 
is OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS” HEREGY 
ie TRANSFERRED. . 
4 ® 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
i SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ‘ 
® 

* 

® 

* 

te 

* 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
IPI iiiiiiiiiiitiiiiiiiii iii tit iti titi iii ititiiiiit) 


‘ee 
Facility: Command Definition Utility, Require File 


Abstract: This require file contains definitions which pertain 
specifically to the Command Definition Utility. 


Environment: Standard CDU environment. 


i 

i 

i 

i 

i 

i 

i 

i Author: Paul C. Anagnostopoulos 
reation: November 

Cc i 29 ber 1982 

i 

i 

i 

i 

i 

i 

i 

i 


Modifications: 


v04-002 eu sce Benn Schreiber 4-MAR-1984 
Rename generalreq to 9 chars. 


v04-001 PCG0001 Peter George 06-Dec-1983 
Add NEG operator. 


require ‘genralreq'; 


N 
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: The following items define the token class names. Each token which is 
: eee as @ result of lexical analysis fits into one of the following 


Literal 

tkn_k_invalid = 0, ! Invalid characters. 

tkn_k_ignored = 1, ! Characters which are ignored. 

tkn_k_ whitespace = ¢ ! Whitespace. 

tkn_k_eol = ° ! End of Line. 

tkn_k_eof = 4, ! End of e. 

tkn_k comma = 5, : Comma for List separation. 

tkn_k_equal = 6, ! Equal sign. 

tkn_k_open_paren =  - ; we parenthesis for grouping. 

tkn_k_close_paren = 8, ! Close parenthesis for grouping. 

tkn_k_dot = 9, ! Dot for path names. 

tkn_k_ comment = 10, ! Comment delimiter. 

—*2 = 11, ' Quoted string. ‘ 

tkn_k histring = 12, ! Quoted string, or arbitrary stuff 
: ending at end of Line or various 
! other delimiters. 

tkn_k symbol = 13, ! Symbol. 

tkn_k_open_angle = 14, : 7 angle bracket for paths. 

tkn_k close angle = > ! Close angle bracket for paths. 

tkn_k_max_class = 15; ! Must be highest class number. 

tkn_k_max_length = 255; : Maximum length of a token. Must fit 


in an ASCIC string. 


; The following macro is used to test whether the current token is of a 
: given class, and optionally, whether is matches a particular string. 


macro 
token. fst yoken.c tess match. string) = 
if Znull(match string) then 
(.cdu$gl_token_class eqlu token_class) 


Zelse 
(.cdu$gl_token_class eqlu_token_class and 
ch$eql (. cdu$gq_token[len],.cdu$gq_token[ptrJ, , 
eet %charcount(match string) ,uplit byte(match_string) ,%x'00")) 


: The following macro is used to skip over a token which is optional in the 
! syntax. It allows an optional hint to the token routine. 


macro 
skip_optional_token(token_class,hint) = 
Rif @hull(hint) hen 
(if token_is(token_class) then 
cdu$get_next_token();) 
Zelse : 
(if token_is(token_class) then 


cdu$get_next_token(hint);) 


} 
| 
| 
| 
| 
| 
| 
j 
| 


— — 
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| 

i 

' ewer ewrreascenmecre2oernrznwreenae SSS SSSSeSeeeeeGoeGenoeenensnoenan 
| 

| 


. The following structure defines a node in the intermediate representation 
: created 24 syntactic analysis. These nodes are Linked together as a 
: directed graph. The same node is used to build the symbol table. 


field 
node_fields = set 


node_w_type = 0,0,16,0), ! Type of node. 
node_w_line = 2.0,16,0), ! CLD file Line number. 
node_l_sister = 40°83 ° }: ! Right sister node. 
node_l child = 8,0,32,0], ! Parent node. 
node_l_code = 12,0,32,0], ! Generated table code. 
node_b_text_length = 16,0, 8,0], ' Length of text and 
node_t_text = 17,0, 0,0] ! the text string. 


tes; 
: The following is a List of all of the node types. 


Literal 
node_k_error = 


node_k_image = 
node_k_outputs = 
node_k_outputs_item = 
node_k_parameter = 
node_k_noparameters = 
node_k_prefix = 
node_k_qualifier = 
node_k_noqualifiers = 
node_k_routine = 


node_k_negatable = 
node_k_placement = 


ã 
i 

Yr 
‘ 

2 
© 
2 
2 
@ 
2 
o 
o 
o 
Cc 
— 
a 
" 

— —— ———2— 
—— 
——————————————— ———— —————————————————————————————2——2— 


node_k_required = 
node_k_type_builtin = 
node kt ype user = 
node_k_abbrey = 


ir oe eee A OO AS Seer er ae J r 
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node_k_foreign = 5, 
node_k_immed = 6, 
node_k_mcrignore = Ts 
node_k_mcroptdelim = 8, 
node_k_mcrparse = 9, 
node -konostat = 40, 
node_k_o 41, 
node ~kznodi sal Lows = tS: 
node_k_a 43, 
node_ “k-not_® 44, 
node_k_an 2= 45, 
node_k_path = 8 
node_k_resolution = 47, 
node_k_path_ definition = 48, 
node_k_path_entity = 49, 
node_ =k “concatenate = 50, 
node_k_noconcatenate = Bhs 
node_k_synonym = 26. 
node_k_neg = 220 
node_k_max_type = 53; 


! The following macro makes it easier to declare a node. 


macro 
node = block(,byte] field(node_fields) %; 


: The following macro is used to Link a child node onto a a parent node. 
! The child is Linked at the end of any existing child chain, which is 
! why the Last_child pointer is required. 


macro 
Link_parent_to ahs en hy ag child. —* Se = 


iat. “parent[node | + > fren ‘ 
' t_chi itd7= = gon B node_l_child] = .child 
else 
2: last_child = last_child([node_l_sister] = .child; 


! The soi teutne macro is used to traverse all of the children of a parent node. 
! The child pointer is set to point at each child in turn. 


macro 
scan athtidrentparent . child) 
(child = arent(node_ l_child); 
wile .child nega 0 do t 
arash te ng ’ 
child = .child{[node_l_sister]; 


) &; 


— — — — — — — — — — — — — — — — — 
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| 
EF TABLE BLOCK GENERATION 
is 


: The following macro is used to allocate space for the Largest possible 
! table block of a certain type. The block will then be filled in with 
! information from the intermediate representation. 


macro 
allocate_largest_table_block(size,ptr) = 
Tlocal 


status: Long; 
status = Lib$Sget_vm fret(size).ptr); 
—— — -Status); 


: This macro is used to set the final size of a table block, rounded up to 
‘a nn oy boundary. The size is also added to the overail table size 
! stored in the primary vector block. 


macro 
set_table_block_size(size,ptr) = 
ptricmd_w size] = round_up(size, 


4); 
cdusgl_tabletvec_t_table_sizel = .cdu$gl_table[vec_l_table_size] + .ptrfcmd_w_size); 


: This macro is used to extend the size of a table block. The size. 

! increase is also added to the overall table size stored in the loa || 
——— tae Blocks can be shrunk without worrying about the overal 
! table size. 


macro 
extend _table block size(extension,ptr) = : 
(ptricmd_wisize] = .ptr{cmd_w size] + extension 


on; 
cdusgl_table(vec_(_table_size] = .cdu$gl_table[vec_l_table_size] + extension; 


0043 AH BT13A- SE " aL PMENT CORPOR 4 
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